Sub TestList()
    Dim listTest As New list
    With listTest
        .Add 1
        .Add 3
        .Add 5
        .Add 7
        Call .ListAllItem
        Debug.Print "-----------"
        .Add 6
        Call .ListAllItem
        Debug.Print "-----------"
        .Delete 3
        .Delete 7
        Call .ListAllItem
    End With
End Sub